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ABSTRACT 

Two s ub ro ut ine packa g es are presented which, when used with any 
of the standard Floating Point Packages, provide the user with a 
powerful, yet concise programming methodology. Data storage or 
retrieval with floating to fixed, or fixed to floating point 
conversion can be performed on terms analogous to single vari¬ 
able, subscripted FORTRAN array terms such as "ARRAY (a*J+b) " 

A concise facility for text output (6? characters), character 
input, line spacing and tabulating is also demonstrated. These 
subroutine packages were written for the PDP-8 family of com¬ 
puters and were intended for use with the PAL-III language. 


EFFICIENT STORAGE UTILIZATION 

The programming of a digital computer requires a 
knowledge of both procedural and arithmetic tech¬ 
niques. Higher level languages such as FORTRAN 
and FOCAL are recognized as being a significant 
aid to the programmer particularly for procedural 
operations and through the relative ease in which 
the language can be learned. Also, the complete¬ 
ness of these languages can be illustrated by the 
simple, direct way in which the procedural tasks 
of input/output, branching logic, data conversion 
(integer storage/floating point storage), looping 

procedura/tasks is the t abili?y b to <1 process m single! Se 

«pfe r , lp !l d :? ariable data arra y terms of the fo™ 

ARRAY (a*J+b). The terminology used here is as 
defined in the American Standard FORTRAN in that 
the symbol, ARRAY, is a name given the beginning 
of successively stored data values and the sub¬ 
script enclosed in parentheses with integer 
values of 1, 2, 3, ... refers, respectively, to 
e first, second, third, ... data array number. 


Analogou 8 procedural programming requires more 
effort in the assembly language of the computer 
than of the higher level languages available. 
However, quite often, reverting to the use of 
assembly language can permit significant gains 
m the critical availability of computer core 
storage. In a small machine, such as the PDP-8 
amily of computers, core storage is extremely 
limited and the desire to achieve improved core 
s ora ge utilization is often an application pro¬ 
gram necessity. y 


What are some of the programming concepts which 
adversely affect core utilization? The following 
are a few: 6 


1. Direct storage of higher level language in a 
form much more lengthy than the assembly 
language equivalent code. 

2. Use of an interpretive system for all coding 
which in equivalent assembly form would not 
always require the use of an interpreter 
program. 


3. Lengthy preparations for calling subroutines or 
lengthy calling sequence requirements to 
subroutines. 

4. Duplication of coding in that an internally 
available routine is not used. 

5. Failure to share work region requirements; that 
is, core storage which is temporarily used and 
otherwise available. 

6. Overemphasis of the coding consideration of the 
seldom used (if ever) requirements, rather than 
permitting omissions with an attendant savings 
in core; or by providing alternately coded 
packages so that the user may have a choice. 

The appearance of programming systems which attempt 
to preserve the procedural niceties of the higher 
level languages are prevalent today; however, many 
of these systems suffer from some of these same 
adverse conditions and produce little improvement 
in core utilization. The adverse concepts listed 
above may serve as a guide when evaluating both the 
system presented herein and other such systems. 

TWO NEW PACKAGES 

Two subroutine packages were developed during a 
biomedical project in which minimizing the core 
storage requirements was essential. To this end, 
the packages entitled "Teletype Text Input/Output 
Package" and the "Array Accessing Subroutine 
Package" were written. The usage and features of 
these routines enable a user to code several pro¬ 
cedural tasks such as teletype page formatting, 
output and input, and processing data arrays. Also 
illustrated in the examples given are means by which 
other procedural tasks such as looping and decision 
branching could be coded. These two packages 
require the use of the Floating Point Package 1 and 
are partially integrated in their use and perform¬ 
ance. The overall purpose in developing these 
packages was to ENABLE MINIMUM CORE STORAGE REQUIRE¬ 
MENTS . At the same time, the peripheral benefits of 
being able to think or plan a program in FORTRAN are 
not altogether lost. In fact, the examples show 
FORTRAN equivalents which are a suggestion that 
FORTRAN coding could readily precede tne use of 













these routines. A second peripheral benefit is in 
the increase obtained in computational computer 
speed by these routines when compared to the pres¬ 
ent FORTRAN-produced code. 

THE TELETYPE TEXT I/O PACKAGE 

This package consists of three routines; namely, 
subroutines TAB, TEXT and ECHO. The subroutines 
are "called" in the PAL-III assembly language 
through the use of the Jump to Subroutine (JMS) 
mnemonic. As in the Floating Point Package, a 
TLS must be used at least once prior to using 
routines TAB and TEXT. 

The Teletype Text I/O Package is available in two 
forms which are a Stand-Alone version and a version 
to be used when the Floating Point Package is resi¬ 
dent which will be referred to as the FPP version. 
The Stand-Alone version occupies 63 decimal storage 
locations. The FPP version requires 55 decimal 
storage locations. The FPP version has the distinct 
advantage of using the Floating Point Package for 
all teletype commands. This feature is useful in 
that if interrupt I/O is implemented, modification 
to the Floating Point Package only need be made. 

Subroutine TAB 

It performs tabulation across a page by typing 
blanks, or performs multiple line spacing down a 
page by typing carriage return (CR), line feed (LF) 
combinations. The routine reacts to the accumulator 
c(Ac) contents as follows: 


If c(Ac) 

Output 

=0 

=n positive, 

=n negative. 

One CR and one LF 

One CR and n+1 LF 

|n|-1 blanks 


No calling sequence parameters are expected by 
subroutine TAB other than the c(Ac), and the 
routine always returns with c(Ac)=0. 


otherwise be used. The routine differs from previ¬ 
ously written routines in that the link register (a 
one-bit, two-state register) is used to alternately 
point to the character to be printed. Also, the 
switching of the link pointer is performed without 
command through the arithmetic in testing for the 
terminating character. 

Example 1 - Using Subroutine TEXT to type "NO GO" 


JMS TEXT /JUMP TO SUBROUTINE TEXT 

MSGADR 

PROCESSING CONTINUES HERE 


MSGADRt 5657 

0047 

5777 


/NO 

/-G 

/Q TERMINATION 


Subroutine TEXT always returns with the c(Ac)=0. 


Subroutine ECHO 

This routine performs the input and typing of a sin¬ 
gle USASC-II, eight-bit code character. When called, 
the routine will "wait" until a keyboard entry is 
made and will return to the location immediately 
following with c(Ac)=0 if the RUB-OUT key is entered. 
If any other key is entered, the routine will return 
to resume past the RUB-OUT return point and will con¬ 
tain the USASC-II character in the c(Ac). Addition¬ 
ally, the character will be stored at location CHAR 
in the listing of the subroutine ECHO used. When 
the Floating Point Package is to be used, the char¬ 
acter is returned at octal location CHAR=0057. The 
Stand-Alone version of ECHO deposits the character 
at location CHAR=TEXT and it will be destroyed upon 
any subsequent call to either TAB, TEXT or ECHO. 

Example 2 - Using subroutine ECHO to input a 

character. 

• 

AGAINt JMS ECHO 

JMP AGAIN /WHEN RUB-OUT IS ENTERED 

PROCESSING CONTINUES HERE 
WHEN THE CHARACTER IS NOT 
THE RUB-OUT KEY. 


Subroutine TEXT 

This subroutine performs the output of a message 
stored as six-bit (stripped) code with two char¬ 
acters per computer word. The message is formed 
by subtracting octal 240 from any USASC-II eight- 
bit code in the octal range 240 to 336, inclusively. 
The two-digit, octal results representing a char¬ 
acter are placed into the first half, followed by 
a character in the last half of each computer word 
and continued into successive core storage loca¬ 
tions. The two-digit, octal code 77 is used as 
the message termination signal and must appear in 
either the first or last half of the final computer 
word used for the messages. Messages may be as 
long as desired and may overlap page boundaries. 

The code includes the use of the alphabet, numerals, 
punctuation, etc. The routine is called without 
regard to the c(Ac) and requires the address of the 
first word of the message to follow the call. This 
feature was provided rather than following the call 
with the message itself to enable portions of a 
message to be reusable and to permit the placement 
of the message into core locations which would not 


THE ARRAY ACCESSING SUBROUTINE PACKAGE (AASP) 

This package provides subroutines which can be used 
to access single subscripted variable arrays of the 
form ARRAY (a* *J+b). The use of the Floating Point 
Package is required in that several of the Floating 
Point Package internal routines and services are 
used. Also, work regions of the Floating Point 
Package are shared. 

The Array Accessing Subroutine Package requires 110 
(decimal) storage locations and is designed to reside 
beginning at core location octal 4400. When a Float¬ 
ing Point Package version is used which does not 
include the subroutine FIX at location 4557, the 
Array Accessing Subroutine Package will supply 
subroutine FIX. In this event, all of the locations 
on the page between octal 4400-4577 are required. 

Ten of the locations required reside at the end of 
two pages within the Floating Point Package (octal 
6173-6177, and 6573-6577). 

The routines to be used are named as follows and will 
perform the attendant procedure: 
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Name 

Procedure 

LOAD 

Clear the floating accumulator c(FAC) and 
load from a floating point array. 

IL0AD 

Clear c(FAC) and load from an integer data 
array. 

STORE 

Store c(FAC) into a floating point data 
array. 

ISTORE 

FIND 

Store c(FAC) into an integer data array. 

Without disrupting c(FAC), load a temporary 
accumulator defined as ANS at location 52, 
53 and 54 from a floating point data array. 

IFIND 

Without disrupting c(FAC) load c(ANS) from 
an integer data array. 


The routines are entered while operating within the 
Floating Interpreter via the table provided at 
octal locations 6556 through 6563* The proper 
contents of these locations will be furnished in 
the Array Accessing Subroutine Package. A user 
must define the table entry naming convention by 
providing the following octal equates to the 
Assembler: 


LOAD 

= 

0012 

I LOAD 

= 

0013 

STORE 

= 

0014 

ISTORE 

= 

0015 

FIND 

= 

0016 

IFIND 

= 

0017 


The FIXTAB pseudo-op may be used for this purpose 
if desired. It may be well to note that 
these routines may not be called wnile not within 
the floating interpreter. Notice that the' use of 
the ILOAD, ISTORE initiates both data array access¬ 
ing and c(FAC) conversion. The routines can cer¬ 
tainly be used for the simpler usage where conver¬ 
sion only is desired. The resulting value will be 
found in the c(FAC) after either the ILOAD (load 6 
fix/float) or the ISTORE (float/fixed 6 store). 

Each routine requires either a two or three-word 
calling sequence as follows: 

ENTRY NAME The routine to be entered. 

ARGUMENT 1 The address of the array. 

ARGUMENT 2 (OPTIONAL) The values of a and b. 


Bit 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

b 

a 

a 

a 

a 

a 

b 

b 

b 

b 

b 

b 




The sign The value of a. The value of b. 
of b. 


If b is negative, b must be supplied as a twos com- 
plement number. 

Lastly, the variable parameter, J, of the array sub¬ 
script is provided as an integer value by the user 
on page zero at core location 0050. This" location 
is internal to the Floating Point Package require¬ 
ments and, hence, does not constitute an additional 
core storage requirement. The value of J should be 
set to 1, 2, 3, ... etc. to access the first, second, 
third, ... etc. data array number regardless of 
whether the data is stored as floating point or fixed 
point data. Additionally, J may be given the value 
of zero as a special case in which the first number 
of either a floating or fixed data array will be 
accessed. 


Arrays may consist of either integer values stored 
successively in core storage or as three-word group¬ 
ings of floating point numbers. In either case, the 
first computer word of an array should be given a 
name in a PAL-III program to be used as the array 
starting address. Arrays may be of any desired 
length and may overlap page boundaries in any way 
desired. Also, arrays may consist of only one value 
which is not really an array; however, the ability 
to access any symbolic named integer in a program is 
useful in that the value can be loaded with conver¬ 
sion to floating point for computational use. The 
load with conversion characteristic is also useful 
in that arrays which otherwise might have been 
maintained as floating point arrays can, in some 
cases, be stored as integer arrays with a signifi¬ 
cant savings in core space. 

The following examples will illustrate the usage of 
the Array Accessing Subroutine Package: 

Example 3 - Move array named HERE to occupy the 
array named THERE. Both arrays are 
10 words long. 


The ENTRY NAME is coded by selecting the desired 
array operation, namely, LOAD, ILOAD, etc. Argu¬ 
ment one is the array starting address which can 
be supplied by writing the same name used to iden¬ 
tify the beginning of the data array in the pro¬ 
gram. If the optional argument two will follow 
argument one, bit zero of argument one must be 
turned on. This can be accomplished in a variety 
of ways, but perhaps the most direct way is to 
add octal 4000 to the array name coded as argument 
one. 

The second argument is optional and should be 
coded only when the first argument has bit zero 
set to a one. This argument two contains the 
subscript values for a and b in the subscript 
(a*J+b). If the second argument is not supplied, 
these values are taken as a=l and b=0. Otherwise 
both of these values are supplied in argument two 
as shown in the following 12-bit computer word: 


CLA 

TAD NEGTEN 
DCA CTR 
DC A J 

LOOP, ISZ J 

FINT 

LOAD 

HERE 

STORE 

THERE 

FEXT 

ISZ CTR 

JMP LOOP 


/PREPARE FOR LOOP 

/ZERO J 
/INCREMENT J 
/ENTER INTERPRETER 
/CLEAR AND LOAD C(FAC) 
/FROM HERE (J) 

/STORE C(FAC) 

/INTO THERE (J) 

/EXIT INTERPRETER 


/DATA SECTION 
J*50 
ANS=52 
FINT*JMS I 7 
NEGTEN,-12 
CTR,0 


/TO ENTER THE INTERPRETER 
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HERE®. 

*.+36 

THERE®. 

*.+36 


/DIMENSION HERE(10).THERE(10) 
/THAT'S OCTAL LENGTH OF 10 FLOATING 
/POINT NUMBERS 


In the preceding example, the coding of a loop is 
seen to be a direct feature of the PAL-III language 
Also, the equivalent of a FORTRAN DIMENSION state¬ 
ment is shown. The coding of the equivalents to a 
FORTRAN 'DO* loop and a FORTRAN 'IF' statement xs 
shown in the following example, in addition to 
further use of the Array Accessing Routines, LOAD 
and FIND. 


Example 4 - Write the following FORTRAN coding in 

- c PAL-III with use of the Array Accessing 

Subroutine Package (AASP). Notice, that 
the use of mixed mode computation is 
indicated, 

FORTRAN 

DO 180 J=lf4 

IF(DATA(2*J+3)-lVAR(J)) 155,160»160 

155 : 

160 : 

180 CONTINUE 


Using AASP 
CLA 

TAD NEG4 
DCA CTR 
DCA J 
D0180tISZ 
FINT 
LOAD 

DATA+4000 
0203 
IFIND 
I VAR 

FSUB ANS 
FEXT 
TAD 45 
SMA CLA 
JMP 5160 
S155t • 


/THAT'S -4 
/ZERO J 

/BEGINS DO UOOPt DO 180 
/FLOATING INTERPRETER 


/LOADS DATA (2*J+3) 

/NOTICE MIXED MODE IS SUPPORTED 

/C(ANS) HAS IVAR(J) NOW CONVERTED 

/SUBTRACT 

/EXIT INTERPRETER 

/GET WORD WITH SIGN FOR 'IF' 

/SKIP 'IF* MINUS 


S160, . 

S180, ISZ CTR /180 CONTINUE 
JMP D0180 


/DATA SECTION 
DATA=. 

*•+14 
IVAR*. 

*.+4 


/DIMENSION DATA (4) * I VAR (4) 
/FOUR FLOATING POINT NUMBERS 

/FOUR INTEGER NUMBERS 


Limitations of AASP 


The Array Accessing Subroutine Package has several 
deliberate limitations; however, the major objec¬ 
tive in permitting savings in core storage is the 
underlying justification for these limitations. 

The limits are as follows: 

Consider the term ARRAY (a*J+b) 

1. Range of a is given by 0=a=31 

2. Range of b is given by -64=b=63 


3, Range of J is given by -2048=J=2047 (Range of 
4K machine) 

4, The starting address of any array to be accessed 
must be in the first 2K of storage (0000-3777 
octal)• 

5, The temporary accumulator, ANS, located at 
c(0052, 0053, 0054) will be destroyed during the 
use of the square root, square, or an 1/0 con¬ 
troller INPUT or OUTPUT. Note that in the case 
of an OUTPUT operation, the c(FAC) is destroyed 
also. 

Numeric Input and Output 

The Array Accessing Subroutine Package provides an 
additional service to augment the use of the stand¬ 
ard Floating Point Package numeric input and output 
routines. The subroutine entry table is supplied 
with input and output transfer addresses at octal 
locations 6554 and 6555. Hence, 1/0 can be per¬ 
formed while within the interpreter if the octal 
equates INPUT=0010 and OUTPUT=0011 are supplied to 
the Assembler. Numeric input in integer, fixed 
point or floating point notation may be encoded by 
simply writing INPUT while within the interpreter. 
Similarly, output of the c(FAC) may be initiated by 
encoding OUTPUT. Use of the output controller is 
expected when using this OUTPUT feature; however, if 
desired, the omission of the output controller must 
be indicated by placing octal 7200 into location 
6555 by the user . When the output controller is 
used, the octal storage locations at c(62) and c(63) 
control the output format where c(62) should be 
given the field width, c(63) the decimal field 
width. These locations must be maintained by the 
user and are not initialized. If the output con¬ 
troller is not used, the locations are not required. 
A routine is provided to place the decimal field 
width into the accumulator as required when using 
the Floating Point Package output controller. 

OTHER TECHNIQUES 


Relational Operators 


It might be valuable to point out that the Relation¬ 
al Operators usable in * IF* statements of recent 
FORTRAN versions can be equivalently coded in 
PAL-III through the use of the following convenient 


mnemonics: 

MNEMONIC 


SKIP NEXT INSTRUCTION 
IF C(AC) ... 


SGT*7550 /SPA SNA 
SGE*7510 /SPA 
SEQ*7440 /SZA 
SNE-7450 /SNA 
$LE*7540 /SMA SZA 
SLT*7500 /SMA 


SKIP IF .GT. 0 
SKIP IF .GE. 0 
SKIP IF .EQ. 0 
SKIP IF .NE. 0 
SKIP IF .LE. 0 
SKIP IF *LT. 0 


These mnemonics have been found to be extremely 
beneficial to the FORTRAN-oriented mind and have 
been made a permanent part of our PAL-III Assembler. 


Coding Across Page Boundaries 

Another procedural benefit in using FORTRAN or FOCAL 
is the absence of ’page* considerations in the PDP-8 
family of computers. A technique can be employed in 
the PAL-III language which can greatly reduce the 
problems associated with pages. 
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Coding may begin at a convenient location (sav octal 
0200) and continue straight through crossing page 
boundaries. 

Adopt the following coding conventions to obtain 
this end: 

1. Use page zero for integer constants, a small 
work area (loop control, etc.) and for indirect¬ 
ly addressing absolute references to floating 
point values or subroutines. 

2. Use the Array Accessing Subroutine Package for 
array processing. 

3. Use the Teletype Text I/O package for referenc¬ 
ing messages. 

4. Code all jump (JMP) instructions' without using 
indirect addressing. 

Upon assembling a program written by these conven¬ 
tions, the Assembler will report which jump instruc¬ 
tions must be changed to indirect addresses. Chang¬ 
ing the jump instructions and adding the indirect 
addresses to page zero will produce a program which 
will execute across page boundaries. 


computational application features prompted the 
rewrite of this program to eliminate the use of the 
FORTRAN controller and the remaining FORTRAN 
code. The resulting program (which also worked) not 
only occupied less core space, now requiring only 
63 per cent of core storage, but also executed much 
faster. The former FORTRAN program version required 
12 seconds per compute cycle to initiate plotter 
movements while the program version employing the 
techniques of this paper required less than three 
seconds per compute cycle to initiate plotter move¬ 
ments. 
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SUMMARY 


When combined with the Floating Point Package, the 
Teletype Text I/O Package and the Array Accessing 
Subroutine Package provide a PAL-III programming 
methodology. The discussion and several examples 
presented show the coding of the following tech¬ 
niques: 


1. Multiple tabulating and line spacing. 

2. Multiple-word, message output stored as two 
characters per word. 


3. USASC-II, eight-bit code character input with 
RUB-OUT key recognition. 



Numeric input and output in any of the formats: 
integer, fixed or floating point. 


5. Accessing single variable, subscripted array 
terms of the general form ARRAY (a*J+b) to 
perform loading, storing, locating and, 
inherently, data conversion and in supporting 
mixed mode data calculation. 


6. The directly available features of PAL-III in 
coding equivalents to FORTRAN ’DO' loops, ’IF* 
statements with either arithmetic or relational 
arguments, DIMENSION statements, and coding 
across page boundaries. 


The emphasis in developing and presenting these 
techniques has been to utilize a minimum of core 
storage for each procedural task presented. These 
routines have been intensively used and appear to 
be completely reliable. 


A brief testimonial is contained in my initial 
usage of these routines. A biomedical computer 
application, 2 which was only partly written in 
FORTRAN, occupied 96 per cent of available core 
storage. Text information was stored as two char¬ 
acters per word and routines not required within 
the FORTRAN Controller were overlaid when the pro¬ 
gram was in working order. The need for additional 
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/ TTY TEXT I/O SUBROUTINE PACKAGE. STAND-ALONE VERSION 
/ S * 90 TNIS / FA^« W ^ro™rwUT AND OUTPUT <l/0> 

PREPARED BY D 0 PRUTCHEY. BECKKAN INST.S. JUNE. 1»4« 

/ IF CCAC) • POSITIVE INTEGER# N# GET CR i N l Lr 

/ IF CCAC) " EERO# GET CRLF 

' ir V'M : NE6ATW.*INTEGER. N. GET ABS.N,-. BLANKS 

TAB#NOP 
STL IAC 

CM C LL / C<L> - 0 MARKS CRLFS 

DC A TEMP 

SNL 

TAD POS3 
TAD BLANK 
SNL 

TAD DIFF 
JMS TYPE 
ISZ TEMP 
JMP .-5 
JMP ! TAB 
POS3#3 
DIFF.3758 

BLANK#0240 _ 

TEMP-TEXT / TEMPORARY STORAGE 

/ OUTPUr^STRIPPE^CODE BEGINNING AT ADDRESS PASSED. 

/ EXAMPLE OF USAGE! 

# MS TEXT /TO CALL THIS ROUTINE _ 

/ mSG1 /the SYMBOL USED TO BEGIN THE MESSAGE 

CLA CLL / INSURE THAT LINK IS CLEAR 

TAD I TEXT 

ISZ TEXT 

OCA TEMPI 

GET1#TAD 1 TEMP* 

SZL 
JIP • 

RTR /FIRST TIME THROUGH 

RTR 

RTR 

CLL 

AND MSK 
TAD M7T 
SNA 

J<P I TEXT / DONE# RETURN 

TAD MSK /RESTORE AC AND COMP LINK 

TAD BLANK 

JMS TYPE 

SNL 

ISZ TEMPS / SECOND TIME THROUGH 

J-0> GET I 

MSK#007T 

M77,7701 

TEMP2-TAB / TEMPORARY ST0RA6E 
/ 

/ SUBROUTINE ECHO 

/ JMS G ECHO /TO GET ASCII CHAR INTO CCAC) A TYPED 

/ JMP AGAIN /IF RUBOUT WAS INPUT 

ECHO#NOP 

KSF / SKIP ON INPUT 

jHP .-1 / WAIT 

KRB / CLEAR CCAC)# READ BUFFER# CLEAR FLAG 

DC A CHAR 
TAD CHAR 
SNA 

JMP ECHO*! / ALSO WAIT WHEN NULL OR BLANK TAPE . 

JMS TYPE / ECHO THE CHARACTER 
TAD CHAR 

TAD MnBOUT / HAVE RUB-OUT? 

SNA CLA 

JMP I ECHO / RUB-OUT WAS ENTERED 
ISZ ECHO / INCREMENT TO BYPASS 

TAD CHAR 
JMP I ECHO 
MRBO'JT # -377 
CHAR-TEXT 
/ 

/ SUBROUTINE TYPE 

TYPE#NOP 

TSF 

JMP .-I 

TLS 

CLA 

JMP 1 TYPE 
S 


/ TTY TEXT I/O SUBROUTINE PACKAGE# FPP VERSION 
*5400 / PLACE WHERE WANTED 

✓ THIS PACKAGE PERFORMS INPUT AND OUTPUT CI/O) 

/ BY USING THE ROUTINES FURNISHED IN THE 

/ FLOATING POINT PACKAGE CINPUT A OUT) TO 
/ PERFORM SINGLE CHARACTER TRANSFER* 

✓ PREPARED BY D G FRUTCHEY# BECKMAN INST.S# JUNE# lt6G 
/ 

/ TH?S°R0UUNE A 0UTPUTS BLANKS# CARRIAGE RETURNS CCR># 

/ AND LINE FEEDS CLF) ACCORDING TO THE ACCUMULATOR CONTENTS* 
/ IF C(AC) - POSITIVE INTEGER# N# GET CR A N*l LF»S 
/ IF CCAC) ■ ZERO# GET CRLF 

/ IF CCAC) • -I# GET A CR 

/ IF CCAC) - NEGATIVE INTEGER# N* GET ABSCN)-1 BLANKS 
TAB#NOP 
STL IAC 

CMA CLL / CCL) -0 MARKS CRLFS 

DCA TEMP 

SNL 

TAD P0S3 
TAD BLANK 
SNL 

TAD DIFF 
J-lS I TYPE 
ISZ TEMP 
JMP *-5 
JMP I TAB 
P0S3#3 
DIFF#3758 
BLANK#0840 

TEMP-TEXT / TEMPORARY STORAGE 
/ 

/ SUBROUTINE TEXT 

/ OUTPUT STRIPPED CODE BEGINNING AT ADDRESS PASSED* 

/ EXAMPLE OF USAGE! 

/ JMS TEXT /TO CALL THIS ROUTINE 

/ MSGI /THE SYMBOL USED TO BEGIN THE MESSAGE 

TEXT#NOP 

CLA CLL / INSURE THAT LINK IS CLEAR 

TAD I TEXT 

ISZ TEXT 

DCA TEMPS 

GETI#TAD I TEMP* 

SZL 

«MP .*5 

RTR /FIRST TIME THROUGH 


CLL 

AND MSK 
TAD HTT 
SNA 

J1P I TEXT / DONE# RETURN 

TAD MSK /RESTORE AC AND COMP LINK 

TAD BLANK 

**S I TYPE 

SNL 

ISZ TEMP2 / SECOND TIME THROUGH 

tMP GET I 

MSK#0077 

M77#770l 

TEMP8-TAB / TEMPORARY STORAGE 
/ 

/ SUBROUTINE ECHO 

/ JMS G ECHO /TO GET ASCII CHAR INTO CCAC) 4 TYPED 

/ JMP AGAIN /IF RUBOUT WAS INPUT 

ECHO#NOP 

CLA CLL 

TAD ECHO 

DCA I RESTRT 

JMS I INPUT 

CLA CLL 

TAD INPKG 

DCA I RESTRT 

ISZ ECHO /TO RETURN PAST THE RUBOUT 

TAD CHAR /RETURNS WITH CHAR IN CCAC) * AT LOC 0057 

JMP I ECHO 

RESTRT#71 67 _ 

INPUT#7148 /FPP ROUTINE INPUT 

INPKG#7401 „ 

TYPE# 7344 /FPP ROUTINE OUT ADDRESS 
CHAR-0057 
% 
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array accessing subroutine package 

LOAD AFTER LOADING THE FLOATING POINT PACKAGE* 

FORm E ARE USED T ° ACCESS ARRAYS OF THE 

FORM* ARRAY(A*J*B) AND TO PROVIDE FIXED/FLOAT 
— _ AND FLOAT/FIXED DATA CONVERSION. 

™IL PACKA<JI WAS PR E p ARED BY D G FE'JTCHEY, 

•655A BECKMAW ,IISTRlWKNTS * FULLERTON# CALIF, OCTOBER, 1968 
FINT-4407 


/JMS | 1 
/ INPUT • 10 
/ OUTPUT • tl 
/ LOAD • 18 
/ ILOAD ■ 18 
/ STORE ■ 14 
/ ISTORE • IS 
/ FIND • 16 
/ IFIND - IT 


/USER SETS J HERE 

/ Temporary accumulator, ans 


7400 
DECOUT 
LOAD 
ILOAD 
STORE 
ISTORE 
FIND 
IFIND 
• 6573 

DECOUT,NOP 
DEC*63 

tad dec /load nr of dec places 

JMS | FPPOUT 
JMP I DECOUT 
FPPOUT,7200 
•6173 
/ 

/ SUDROUTINE GET 

f?nt N ° P 7 RtST0ME THE C<PAC > PR o« ans 

FGET ANS 
TEXT 

JMP I GET 
/ 

/ EQUATE SYMBOLS 
A-40 
B-41* 

SEE-48 
J-50 
ADR-51 
ANS-S8 
/ 

/ SUBROUTINE LOAD 
•4400 

dSs D r7So ' L0AD C<rAC> W,TH n - 0AI1 » 8 *>01 NT m 
JMS I AGET 
JMP I LOAD 
/ 

/ SUBROUTINE ILOAD 

LFIND^IFIND ' L ° A ° C<FAC> W,TH p l x «> p OINT NR 
JiS LFIND 
JMS I AGET 
JMP I ILOAD 
/ 

/ SUBROUTINE STORE 
STORE,NOP 
JMS FORM 
FINT 

FPUT I ADR 
FEXT 

JMP I STORE 
/ 

/ SUBROUTINE ISTORE 

JMS°POINT P ' C0NVERT C(FAC > TO FIXED 4 STORE 
TAD ADR 
DCA ADR 
J4S FIX 
TAD 45 
DCA I ADR 
TAD PI3 
DCA 44 
DCA 46 
JMS I NORM 
JMP I ISTORE 
/ 

/ SUBROUTINE FIND 
FIND,NOP 
JMS FORM 
TAD I ADR 
DCA ANS 
ISZ ADR 
TAD I ADR 
DCA ANS*I 
ISZ ADR 
TAD I ADR 
DCA ANS*8 
JMP I FIND 


/ POINTS TO PLACE TO STORE 


/ LOAD ARRAY(A*J*B> INTO ANS 
/ MOVE INTO ANS 


/ 

/ 

IFIND,NOP 
JMS POINT 


SUBROUTINE IFIND 
/ LOAD 


FIXED INTO ANS 4 FLOAT 


TAD ADR 
DCA ADR 
TAD I ADR 
DCA PI3*| 
FINT 

n»UT BIN 
FGET P13 
FN OR 

FPUT ANS 
FGET BIN 
FEXT 


/ POINTS TO FIXED POINT ARRAY MEMBER 
/ SET UP INTEGER 
/ HOLD CCFAC) 

/ NORMALIZE 
/ RESTORE CCFAC) 


/ SUBROUTINE FORM 

rpSr 23 . 2 T•" M, " T 

tad r / triple 
tad adr / form pointer 

DCA ADR 
JMP I FORM 
/ 

/ subroutine point 

y f. A e« UL J TE A * J * D " 1 AND RETURN IN CCAC) 
POINT^NOp' ETURN ARHAY ""MSS IN ADR 

/ GET POINTER TO CALLING SEQUEK JE 


tad i cos 

DCA SEE 
TAD I SEE 
AND M5K1 
DCA ADR 
TAD I SEE 
ISZ I GOC 
SPA CLA 
JMP AS 
TAD J 
SZA / 

tad negi 

JMP A10 
A5,ISZ SEE 
TAD I SEE 
AND MSK8 
SPA 

tad msk3 
DCA B / 
Tad I SEE 
ISZ I G08 
AND MSK3 
CLL RTR 


/ GET ARRAY ADDRESS 
/ 3777 DELETE ZEROTH BIT 

/ ARRAY ADDRESS AGAIN 
/ TO BYPASS ARGUMENT I 

/ NO 2ND ARGUMENT 
J MAY BE 0 OR I TO GET ARRATfl) 


/ GET 
/ 4077 


BAA AAA BBB BBB 
GET SIGN AND B 


WORD 


/ 3700 EXTEND MINUS BITS 
-64«B<*64 DECIMAL 

/ TO BYPASS ARGUMENT 8 
/ 3700 GET A 
/ SHIFT 


RTR 

DCA A / 0<-A<*38 
/ EVALUATE A*J*B-I 
TAD J 
DCA I MP2P 
TAD A / 

SZA / 

JMS I MP4P 
TAD B 
TAD NEGI 
AtO,DCA B 
TAD B 

JMP I POINT 
/ CONSTANTS 


DECIMAL 


/ MULTIPLICAND 

multiplier 

NO NEED TO MULT IF A-0 
/ 18 BIT MULTIPLY 


/ RETURN 


008,5655 
MSK1,377> 
MSK2,4077 
MSK3,3700 
MP2P,6471 
MP4P,6437 
AGET,GET 
NEGI,-I 
NORM,6600 
PI3,13 
0 
0 

BIN,0 

0 

0 

/ 

/ SUBROUTINE FIX 
•4557 


/ IN THE 1NTERPRET0R 


/ LOCATION OF MULTIPLICAND 
/ FPP ROUTINE FOR FIXED POINT MULTIPLY 


/ FLOATING POINT NORMALIZE 


FIX,NOP 
TAD 44 
SMA SZA 
sMP .*3 


/ FIX CCFAC) 


CLA 

JMP FIXEND 

tad mis 

DCA 44 
LOOP,TAD 44 
SMA CLA 
^CP I FIX 
JMS 1 .*8 
JMP LOOP 

6200 ✓ DIVI IN INTERPRETER 

FIXEND,DCA 45 
JMP I FIX 
Ml 3,• 13 

S 
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Subroutine services performed 
by the floating Point Package. 

See documentation in manual f-S'-S 


Special Symbols Used: 

c(AC) The Accumulator 

c(FAC)The Floating Accumulator at c(44,45,46) 


SUBROUTINE LOAD SUBROUTINE STORE SUBROUTINE ISTORE, 


SUBROUTINE- TfXND 


B 


C 


D 


E 



F 


SUBROUTINE IlOftD 


C 


I LOAD 


J 


IfZMO 

, —Mo N/r" . 

H ^IftRRhY(«PJ*V 
^WTO cCbns) ) 


G-ET 


J (Move c(AMS) 

V If*TO cCFBcV 


c 


RETURN 


) 
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